﻿Public Class Login

    Dim oAut As New CAutenticacion

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If (Me.Validar()) Then
            Try
                Cursor = Cursors.WaitCursor                
                Dim ds As New DataSet

                ds = Me.oAut.Autenticar(Me.txtUsuario.Text, Me.txtClave.Text)
                If (ds.Tables(0).Rows.Count > 0) Then                    
                    My.Forms.Principal.IdUsuario = CInt(ds.Tables(0).Rows(0)("ID"))
                    My.Forms.Principal.NombreUsuario = CStr(ds.Tables(0).Rows(0)("NOMBRE"))

                    My.Forms.Principal.Show()

                    Cursor = Cursors.Default
                    Me.Close()
                Else
                    Cursor = Cursors.Default
                    MessageBox.Show("Usuario y clave inválidos", "Usuario inválido", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End If
            Catch ex As Exception
                Cursor = Cursors.Default
                MessageBox.Show(ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)                
            End Try
        End If


    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Function Validar() As Boolean
        'Es obligatorio el usuario y el password
        Dim mensaje As String = ""
        If (Me.txtUsuario.Text = "") Then
            mensaje += "- Debe escribir el usuario" & Chr(13)
        End If
        If (Me.txtClave.Text = "") Then
            mensaje += "- Debe escribir el password" & Chr(13)
        End If

        If (mensaje.Length > 0) Then
            MessageBox.Show(mensaje, "Datos incompletos", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return False
        Else
            Return True
        End If
    End Function

End Class
